旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 넬컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴엿 납 납 납 QuickBasic'de kar윂la웪뜤뛪 sorunlar� nas뛩 a웪뛪? 납 납 납 납 Minik baz� sorunlar 납 냅컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴冒 � PS 31 � 엞bat'96 G걊ol Demir � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Bu ay basic dilinde minik baz� sorunlar뛫 halli 걕erinde dural뛪. Konumuz alt ba웞뛨lar� 윍yle: a) S뛯alama algoritmas� b) T걊k놽 heceleme c) Binary dosya yap뛱� d) Hscplayer'in basic'e monte edilmesi 旼컴컴컴컴컴컴컴컴컴컴컴커 컴컴컴컴캑 S뛯alama algoritmas� � 읕컴컴컴컴컴컴컴컴컴컴컴켸 San뛯뛪 yapt뜤뛫뛺 programlarda zaman zaman verilerinizi s뛯aya sokma ihtiyac� duydunuz. Bunun i뇁n kli웕le웟i� bir y봭tem vard뛯. Klasik olan bu y봭temin algoritmas� 윍yledir. (Ama� verilerin b걓걃ten k걞겎e do쬻u s뛯alanmas�) 1 - Sayac1'i s뛣뛯la 2 - Sayac1'i bir artt뛯 3 - Sayac1 toplam veri adedini ge뇍i mi? a) Evet : program� bitir.(10'na git) b) Hay뛯: devam et 4 - Sayac1 ile tan뛪lanan veriyi al 5 - Sayac2'yi s뛣뛯la 6 - Sayac2'yi bir artt뛯 7 - Sayac1 toplam veri adedini ge뇍i mi? a) Evet : 2'ye git b) Hay뛯: devam et 8 - Sayac2 ile tan뛪lanan veriyi al 9 - Sayac1 ve Sayac2 ile 웏retlenen iki veriyi k뛹asla a) E웙t : 6'ya git b) Sayac1 ile 웏retli veri daha b걓걃 : 6'ya git c) Sayac2 ile 웏retli veri daha b걓걃 : Verileri de쬲웪ir ve 6'ya git 10 - Biti� (Ama� verilerin k걞걃ten b걓겎e do쬻u s뛯alanmas�) 1 - Sayac1'i s뛣뛯la 2 - Sayac1'i bir artt뛯 3 - Sayac1 toplam veri adedini ge뇍i mi? a) Evet : program� bitir.(10'na git) b) Hay뛯: devam et 4 - Sayac1 ile tan뛪lanan veriyi al 5 - Sayac2'yi s뛣뛯la 6 - Sayac2'yi bir artt뛯 7 - Sayac1 toplam veri adedini ge뇍i mi? a) Evet : 2'ye git b) Hay뛯: devam et 8 - Sayac2 ile tan뛪lanan veriyi al 9 - Sayac1 ve Sayac2 ile 웏retlenen iki veriyi k뛹asla a) E웙t : 6'ya git b) Sayac1 ile 웏retli veri daha k걞걃 : 6'ya git c) Sayac2 ile 웏retli veri daha k걞걃 : Verileri de쬲웪ir ve 6'ya git 10 - Biti� Rakamsal verilerde ve standart metin dosyalar뛫da ge놽rli bu y봭tem t걊k놽 karakter bulunan stringlerde i웕 yaramaz. 셱ne쬲n "�" harfi bu usulde "Z" den sonra gelir. A웏쭕da verilen mod걄 ise T걊k놽 verileri d걕g걆 bir s뛯aya sokar. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � 'Bu program t걊ke karakterlerin yer ald뜤� stringleri s뛯alar � � � �'============================= Tan뛪lar ========================== � � Enson = 5 'Toplam veri say뛱� � � Nerden = 1 'Ka뇥nc� karakter baz al뛫acak � � Uzunluk = 50 'En uzun verinin boyu � � Tercih = 1 'K걞걃ten b걓겎e ters s뛯alama � � '1 den farkl� ise d걕 s뛯alama yapar � � � � REDIM Veri$(Enson) � � � � Veri$(1) = "�aml뛟el" � � Veri$(2) = "Ceyhan" � � Veri$(3) = "놹l뜜ma" � � Veri$(4) = "놹l뜜d�" � � Veri$(5) = "deneme" � �'======================= S뛯alama program� ====================== � � CLS : PRINT "S뛯alama yap뛹orum" � � FOR I = 1 TO Enson: FOR Y = 1 TO Enson: FOR z = Nerden TO Uzunluk � � Veri$(Y) = LEFT$(Veri$(Y) + SPACE$(Uzunluk), Uzunluk) � � Veri$(I) = LEFT$(Veri$(I) + SPACE$(Uzunluk), Uzunluk) � � B = ASC(MID$(Veri$(Y), z, 1)): C = ASC(MID$(Veri$(I), z, 1)) � � IF B <> C THEN � � SELECT CASE CHR$(B) � � CASE "�", "�": B = 67.5 � � CASE "�", "�": B = 71.5 � � CASE "i", "�": B = 73.5 � � CASE "�", "�": B = 79.5 � � CASE "�", "�": B = 83.5 � � CASE "�", "�": B = 85.5 � � CASE "I": B = 73 � � CASE ELSE: B = (223 AND B) � � END SELECT � � SELECT CASE CHR$(C) � � CASE "�", "�": C = 67.5 � � CASE "�", "�": C = 71.5 � � CASE "i", "�": C = 73.5 � � CASE "�", "�": C = 79.5 � � CASE "�", "�": C = 83.5 � � CASE "�", "�": C = 85.5 � � CASE "I": C = 73 � � CASE ELSE: C = (223 AND C) � � END SELECT � � SELECT CASE B � � CASE C � � CASE ELSE � � SELECT CASE Tercih � � CASE 1 � � IF B < C THEN SWAP Veri$(I), Veri$(Y) � � CASE ELSE � � IF B > C THEN SWAP Veri$(I), Veri$(Y) � � END SELECT � � EXIT FOR � � END SELECT � � END IF � � NEXT: NEXT: NEXT � �'==========================Ekrana d봩걅 ===========================� � CLS : FOR I = 1 TO Enson: PRINT Veri$(I): NEXT � � � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 旼컴컴컴컴컴컴컴컴컴컴컴커 컴컴컴컴캑 Heceleme algoritmas� � 읕컴컴컴컴컴컴컴컴컴컴컴켸 Kelime i웞emci programlamaya soyunan ki웙ler i뇁n bilinmesi gereken algoritmalardan birisi de t걊k놽 heceleme algoritmas뛡뛯. T걊k놽 heceleme yapmak i뇁n uzun uzun dil bilgisi kurallar뛫� bilmek gerekmez. Sadece sesli harfleri tan뛪ak yeterlidir. Sesli harfler herkesin bildi쬲 gibi "ae뛦o봴�" d뛯. Temel mant뛨 웫dur. Bir kelimede ilk sesli harf bulunur, sonra ikinci sesli harf bulunur. Bunlar뛫 bulundu쬾 yer aras뛫da ki mesafe heceyi belirler. 옍yleki; a) Hi� sesli harf yok : Kelimenin tamam� tek hecedir b) Tek sesli harf var : Kelimenin tamam� tek hecedir c) 쁪i sesli harfin yerleri aras뛫da tek karakterlik mesafe var: ilk hece= Kelimenin ba윂 ile ilk seslinin bulundu쬾 yer d) 쁪i sesli harfin yerleri aras뛫da 뇇k mesafe var: ilk hece= Kelimenin ba윂 ile ilk seslinin bulundu쬾 yerin bir fazlas� A웏쭕daki program bu konuda bir 봱nektir. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 � Sesli$ = "AaEe쁦I뜖봑o쉧Uu" � � Kelime$ = "�ekoslavakyal뛩a웪뛯뛪ad뛨lar뛪뛺danm뛱뛫뛺?" � � � � CLS � � DO � � GOSUB Hece � � Kelime$ = RIGHT$(Kelime$, LEN(Kelime$) - LEN(Hece$)) � � IF LEN(Kelime$) = 0 THEN � � PRINT Hece$ � � EXIT DO � � END IF � � PRINT Hece$; "-"; � � LOOP � � END � � � � � � Hece: � � Yer1 = 0 'Birinci sesli harfin yeri � � Yer2 = 0 '쁪inci " " " � � � � FOR I = 1 TO LEN(Kelime$) � � � � IF Yer1 = 0 THEN � � IF INSTR(Sesli$, MID$(Kelime$, I, 1)) > 0 THEN Yer1 = I � � ELSE � � � � IF Yer2 = 0 THEN � � IF INSTR(Yer1, Sesli$, MID$(Kelime$, I, 1)) > 0 THEN Yer2 = I � � END IF � � END IF � � NEXT � � � � � � IF Yer1 > 0 AND Yer2 > 0 THEN � � IF Yer2 - Yer1 > 2 THEN Ara = Yer1 + 1 ELSE Ara = Yer1 � � Hece$ = LEFT$(Kelime$, Ara) � � ELSE � � IF Yer1 = 0 THEN Hece$ = Kelime$ 'Sesli harf yok � � IF Yer2 = 0 THEN Hece$ = Kelime$ 'Tek sesli harf var � � END IF � � RETURN � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 旼컴컴컴컴컴컴컴컴컴컴컴커 컴컴컴컴캑 Binary dosya yap뛱� � 읕컴컴컴컴컴컴컴컴컴컴컴켸 �o쬾 programc� i뇁n bir dosyan뛫 herhangi bir yerinden istenilen uzunlukta veri okunmas� veya yaz뛩mas� bir sorundur. Uygulamada g봱d겎걅 baz� gereksiz program sat뛯lar� binary dosya yap뛱뛫� anlatmama neden olmu웪ur. Diyelim ki bir data dosyan뛺 var. Bu dosyan뛫 1243 nc� konumundan 37 byte okumak, 2587 nci konumuna 3 byte yazmak silmek istiyorsunuz. Dosyay� s뛯al� okuma, s뛯al� yazma, rastgele okuma yazma gibi t걊lerde a놹rsan뛺 bu i웞emleri kolay yapamazs뛫뛺. Oysa binary a놹rsan뛺 bu i웞er 뇇k kolay 봱nekleyelim. OPEN "DENE.DAT" FOR BINARY AS 1 'Dosya a뇥ld� A$= SPACE$(37): GET 1, 1243, A$ '1243'den 37 byte okundu A$= "123": PUT 1, 2587, A$ '2587'ye 3 byte yaz뛩d� Binary dosya yap뛱뛫뛫 kolayl뛨lar� bununla bitmiyor. 셱ne쬲n bir dosyadaki rakamsal veri e쬮r tek byte s뜤m뛹orsa yap뛩an klasik i웞em 윍yleydi (de쬮r= birinci byte de쬮ri*256 + ikinci byte de쬮ri) oysa binary yap뛡a bu i� (GET 1,,Deger%) komutu ile kendi쬲linden yap뛩뛹or. Son olarak binary yap� ile database programlar뛫 dosya h뛺lar뛫a basic dili ile ula윂labildi쬲ni belirtteyim. 쁫gilenen olursa bu konuya tekrar d봭eriz. Bu say뛡a bir dosyan뛫 istenilen yerinden istenilen byte uzunlukta bir k뛱m� silerek dosyay� tekrar ayn� isimle size geri veren bir program mod걄� de veriyoruz. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 컴컴컴컴캑 Hscplayer'in basic'e monte edilmesi � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Adlib uyumlu ses kartlar뛫da 놹l뜜mak 걕ere tasarlanm뜜 bir s걊갷� var. Bu s걊갷� (.hsc) modunda yaz뛩m뜜 ses dosyalar뛫� hemen her dilde kolayl뛨la dinlenebilmesi i뇁n yaz뛩m뜜. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 � HSC-Tracker V1.2 � � � � (C)1993 by Zwerg Zwack and Chicken � � Soundroutine (C) 1992/93 by NEO Software Produktions GmbH � � Home of HSC-Tracker: The Lycaeum +41 41-762-989 (v32b,v42b) � � � � Registered to you! � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 D봩걅an dosyas뛫da bu 웕kilde bir giri� yapan bu m걎evazi insanlar뛫 yapt뛨lar� s걊갷� ger놽kten tam bir harika. Programlar뛫뛫 bedava oldu쬾nu ve bedava olmak ko웫luyla di쬮r programlarda da kullan뛩mas� i뇁n izin verdiklerini belirten bu ki웙leri y걊ekten kutlar뛪. S걊갷걆걆 herhangi bir bellek alan뛫a s뛣뛯뛫c� offsetinden ba웞amak 걕ere at뛩mas� ve sonra da dinlenmek istenen dosyan뛫 okutulup verilerin segment ve offset adreslerinin bu s걊갷걓e bildirilmesi gerekiyor. Basic programc뛩ar� i뇁n oldukca karma윂k say뛩acak bu yap� i뇁n sizlere program g봭deriyorum. Bu programlar hakk뛫da k뛱aca bilgiler: 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Hscdinle.Asm isimli kaynak kod � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Bu hscplayer ile birlikte gerekli bir ka� yordam� i놽riyor. Basic programc뛩ar� kullanmak i뇁n; Versiyon 7.1 'de DEL HSCDINLE.LIB TASM HSCDINLE/m LIB QBX *INTRPT LIB HSCDINLE +INTRPT+HSCDINLE,; LINK/Q HSCDINLE.LIB,HSCDINLE.QLB,,QBXQLB; QBX/L HSCDINLE Versiyon 4.5 'de DEL HSCDINLE.LIB TASM HSCDINLE/m LIB QB *INTRPT LIB HSCDINLE +INTRPT+HSCDINLE,; LINK/Q HSCDINLE.LIB,HSCDINLE.QLB,,BQLB45; QB/L HSCDINLE 웕klinde bir batch dosya 놹l뜜t뛯malar� gerekiyor. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Hscdinle.Bas isimli kaynak kod � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Bu kaynak kod sadece versiyon 7.1'de 놹l뜜mak 걕ere tasarland�. Gerekce ise gayet basit 뇖nk� bu versiyonda "ON LOCAL ERROR", "CURDIR$" gibi geli웟i� komutlar var. Bu program뛫 ayr뛠a .exe'si de verildi. Porgram vas뛲as뛹la hsc m걕ik dinleyebilir, bu dinlemeyi tsr olarak yapabilirsiniz. Olduk놹 be쬮ni alan bir program oldu쬾nu belirtmeliyim. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Hscbas.Bas isimli kaynak kod � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Bu program ise her iki versiyonda yani versiyon 4.5'da dahil olmak 걕ere hsc m걕ik dinlemeye bir 봱nek olarak haz뛯land�. Unutulmamas� gereken bir nokta her iki program i뇁n basice "QBX /L HSCDINLE" veya "QB /L HSCDINLE" 웕klinde ba웞amak gerekiyor. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 � Odam.Hsc isimli m걕ik dosyas� � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Sevgili M.Do쬪n 셗DEM쁒 taraf뛫dan yap뛩m뜜, .hsc format뛫da g걕el ve t걊k놽 bir melodi. Daha ba웛a .hsc m걕ikler i뇁n kendisine internet 걕erinden "Dogano@Doruk.com.tr" adresi yoluyla ula웏bilirsiniz. G봱걼mek 걕ere... Adres: PC World/T걊kiye PS-G걊ol Demir Eski B걓걃dere cad. Sanayi mah. Beh놽t sokak No:25/B Kat:5 80650 4.Levent / 쁓TANBUL Internet : gurold@doruk.com.tr